<% @ Language = VBScript %>
<!--#include file="firewall.asp"-->
<!--#include file="Ini.asp"-->
<!--#include file="../AspLib/Functions.asp"-->

<%
Set Conn = Server.CreateObject("ADODB.Connection")
conn.CommandTimeout = 1500
Conn.Open sCo1, sCo2, sCo3
RECADO=trim(request("RECADO"))

MACERTO =  MONTH(NOW) & "/" & DAY(NOW) & "/" & YEAR(NOW) & " " & HOUR(NOW) & ":" & MINUTE(NOW) & ":" & SECOND(NOW)


SSQL="UPDATE TLMK SET STATUS='"& REQUEST("STATUS") &"',OBS_DIV='"& REQUEST("OBS_DIV") &"',ACERTO='"& MACERTO &"' WHERE COD_TLMK=" & RECADO
'RESPONSE.WRITE SSQL
'RESPONSE.END
Conn.Execute(SSQL)
Response.Redirect "recados.asp?ESCOLA=" & REQUEST("ESCOLA")
Conn.Close       : Set Conn = Nothing

%>